5,389
社区成员
发帖
与我相关
我的任务
分享
取值保存在一个字符串数组里,这样值不连续也可以,没规律也可以。edit.tag作为索引即可,点一下加1,edit.text := 对应的字符串
定义一个全局变量 vCoun
一个点击事件里,如OnClick:
Inc(vCoun);
Edit.text :=‘PR’+vCoun.ToString;
如果参数不太多,就用枚举类型(PR001,PR002,PR003),用后继值判断,用GetEnumName(TypeInfo(T枚举), Integer(枚举值))转换字符串赋值。